home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / progjour / 1991 / 01 / strerror.asm < prev    next >
Assembly Source File  |  1990-10-13  |  680b  |  49 lines
  1.     title    error message interface
  2.  
  3. NULL_POINTER    equ    0
  4.  
  5.     public    clear_strerror,set_strerror,get_strerror
  6.  
  7.     .model    small
  8.     .data
  9.     extrn    dgroup_segment:word
  10.  
  11.     .data?
  12. strerror_ptr    dw    ?
  13.  
  14.     .code
  15.  
  16. ;;    clear strerror
  17. ;
  18. clear_strerror proc
  19.     mov    strerror_ptr[bp],NULL_POINTER
  20.     ret
  21. clear_strerror endp
  22.  
  23.  
  24. ;;    get strerror
  25. ;
  26. ;    exit    DS:SI    error string
  27. ;        Zf    if no error string
  28. ;
  29. get_strerror proc
  30.     mov    ds,dgroup_segment[bp]
  31.     mov    si,strerror_ptr[bp]
  32.     cmp    si,NULL_POINTER
  33.     ret
  34. get_strerror endp
  35.  
  36.  
  37. ;;    set strerror
  38. ;
  39. ;    entry    AX    DGROUP offset of asciiz error string
  40. ;    exit    Cf    1
  41. ;
  42. set_strerror proc
  43.     mov    strerror_ptr[bp],ax
  44.     stc
  45.     ret
  46. set_strerror endp
  47.  
  48.     end
  49.